home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 11
/
FM Towns Free Software Collection 11.iso
/
t_os
/
data
/
nos
/
road1.plp
< prev
next >
Wrap
Text File
|
1995-07-01
|
14KB
|
433 lines
/* ROAD1の電話番号一覧選択 */
%setTEL {
SNDMSG({nyuryoku.snd});
footnote({ROAD1 }|BPS|{BPSアクセス・ポイントの電話番号を直接入力処理中,,,♪});
%a @input({ROAD1の電話番号を入力してネ☆(入力後は「リターンキー↓」)},,
@head(ROAD1,{/}));
case (a<>{}, {Yes},{ROAD1:=@getchar(a,1,80)|{/}|BPS;},
{No},{setTEL});
};
%HOKKAI1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 札 幌 },{ROAD1:={011-898-4909/1200}},
{ 函 館 },{ROAD1:={0138-54-7061/1200}},
{ 室 蘭 },{ROAD1:={0143-43-1631/1200}},
{ 釧 路 },{ROAD1:={0154-22-6177/1200}},
{ 帯 広 },{ROAD1:={0155-25-7311/1200}},
{ 北 見 },{ROAD1:={0157-24-4282/1200}},
{ 旭 川 },{ROAD1:={0166-25-7306/1200}},
{直接入力},{setTEL}
);
};
%HOKKAI2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 札 幌 },{ROAD1:={011-898-4965/2400}},
{ 函 館 },{ROAD1:={0138-51-7964/2400}},
{ 釧 路 },{ROAD1:={0154-22-9459/2400}},
{ 帯 広 },{ROAD1:={0155-25-7181/2400}},
{ 北 見 },{ROAD1:={0157-23-8051/2400}},
{ 旭 川 },{ROAD1:={0166-26-9630/2400}},
{直接入力},{setTEL}
);
};
%TOHOKU1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 青 森 },{ROAD1:={0177-29-1944/1200}},
{ 八 戸 },{ROAD1:={0178-24-4065/1200}},
{ 秋 田 },{ROAD1:={0188-31-4161/1200}},
{ 盛 岡 },{ROAD1:={0196-51-4222/1200}},
{ 北 上 },{ROAD1:={0197-63-7301/1200}},
{ 仙 台 },{ROAD1:={022-221-5618/1200}},
{ 酒 田 },{ROAD1:={0234-24-9571/1200}},
{ 山 形 },{ROAD1:={0236-31-2448/1200}},
{会津若松},{ROAD1:={0242-24-3509/1200}},
{ 福 島 },{ROAD1:={0245-22-5951/1200}},
{ いわき },{ROAD1:={0246-23-4576/1200}},
{直接入力},{setTEL}
);
};
%TOHOKU2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 青 森 },{ROAD1:={0177-29-1951/2400}},
{ 八 戸 },{ROAD1:={0178-45-4971/2400}},
{ 秋 田 },{ROAD1:={0188-31-4120/2400}},
{ 盛 岡 },{ROAD1:={0196-51-1101/2400}},
{ 仙 台 },{ROAD1:={022-266-7814/2400}},
{ 酒 田 },{ROAD1:={0234-26-7035/2400}},
{ 山 形 },{ROAD1:={0236-32-4457/2400}},
{会津若松},{ROAD1:={0242-24-9202/2400}},
{ 福 島 },{ROAD1:={0245-23-2971/2400}},
{ いわき },{ROAD1:={0246-22-9581/2400}},
{直接入力},{setTEL}
);
};
%NKANTO1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 前 橋 },{ROAD1:={0272-52-9753/1200}},
{ 高 崎 },{ROAD1:={0273-27-9174/1200}},
{ 館 林 },{ROAD1:={0276-75-4825/1200}},
{ 小 山 },{ROAD1:={0285-23-1130/1200}},
{ 宇都宮 },{ROAD1:={0286-38-9951/1200}},
{ 水 戸 },{ROAD1:={029-227-6929/1200}},
{ 日 立 },{ROAD1:={0294-21-8413/1200}},
{ 筑 波 },{ROAD1:={0298-55-4330/1200}},
{ 所 沢 },{ROAD1:={0429-28-0812/1200}},
{ 浦 和 },{ROAD1:={048-825-7942/1200}},
{ 熊 谷 },{ROAD1:={0485-24-7362/1200}},
{ 越 谷 },{ROAD1:={0489-62-2680/1200}},
{ 川 越 },{ROAD1:={0492-41-5381/1200}},
{ 本 庄 },{ROAD1:={0495-24-2175/1200}},
{直接入力},{setTEL}
);
};
%NKANTO2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 前 橋 },{ROAD1:={0272-54-0900/2400}},
{ 高 崎 },{ROAD1:={0273-27-8335/2400}},
{ 館 林 },{ROAD1:={0276-75-0553/2400}},
{ 小 山 },{ROAD1:={0285-24-5601/2400}},
{ 宇都宮 },{ROAD1:={0286-38-9909/2400}},
{ 水 戸 },{ROAD1:={029-221-6901/2400}},
{ 筑 波 },{ROAD1:={0298-55-2291/2400}},
{ 所 沢 },{ROAD1:={0429-28-8218/2400}},
{ 浦 和 },{ROAD1:={048-825-5700/2400}},
{ 熊 谷 },{ROAD1:={0485-24-1831/2400}},
{ 越 谷 },{ROAD1:={0489-66-8001/2400}},
{ 川 越 },{ROAD1:={0492-41-7051/2400}},
{直接入力},{setTEL}
);
};
%SKANTO1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 東 京 },{ROAD1:={03-3739-9241/1200}},
{ 稲 城 },{ROAD1:={0423-78-6273/1200}},
{ 調 布 },{ROAD1:={0424-81-0556/1200}},
{ 立 川 },{ROAD1:={0425-24-4212/1200}},
{ 町 田 },{ROAD1:={0427-99-2375/1200}},
{ 千 葉 },{ROAD1:={043-299-3410/1200}},
{ 君 津 },{ROAD1:={0439-52-8290/1200}},
{ 川 崎 },{ROAD1:={044-755-4911/1200}},
{ 横 浜 },{ROAD1:={045-316-4201/1200}},
{ 厚 木 },{ROAD1:={0462-22-5556/1200}},
{ 平 塚 },{ROAD1:={0463-21-5841/1200}},
{ 小田原 },{ROAD1:={0465-23-1562/1200}},
{ 横須賀 },{ROAD1:={0468-27-0412/1200}},
{ 柏 },{ROAD1:={0471-46-3153/1200}},
{ 松 戸 },{ROAD1:={0473-66-2621/1200}},
{ 船 橋 },{ROAD1:={0474-37-5241/1200}},
{直接入力},{setTEL}
);
};
%SKANTO2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 東 京 },{ROAD1:={03-3739-9120/2400}},
{ 稲 城 },{ROAD1:={0423-78-6514/2400}},
{ 調 布 },{ROAD1:={0424-89-3450/2400}},
{ 立 川 },{ROAD1:={0425-22-0178/2400}},
{ 町 田 },{ROAD1:={0427-99-2148/2400}},
{ 千 葉 },{ROAD1:={043-299-3429/2400}},
{ 川 崎 },{ROAD1:={044-752-4421/2400}},
{ 横 浜 },{ROAD1:={045-323-2852/2400}},
{ 厚 木 },{ROAD1:={0462-22-5558/2400}},
{ 平 塚 },{ROAD1:={0463-21-5846/2400}},
{ 小田原 },{ROAD1:={0465-24-1602/2400}},
{ 横須賀 },{ROAD1:={0468-24-8078/2400}},
{ 柏 },{ROAD1:={0471-46-4175/2400}},
{ 松 戸 },{ROAD1:={0473-66-7641/2400}},
{ 船 橋 },{ROAD1:={0474-37-5392/2400}},
{直接入力},{setTEL}
);
};
%HOKURIK1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 新 潟 },{ROAD1:={025-246-3613/1200}},
{ 上 越 },{ROAD1:={0255-26-3680/1200}},
{ 長 岡 },{ROAD1:={0258-32-2521/1200}},
{ 長 野 },{ROAD1:={0262-26-9852/1200}},
{ 松 本 },{ROAD1:={0263-32-8903/1200}},
{ 佐 久 },{ROAD1:={0267-63-3629/1200}},
{ 金 沢 },{ROAD1:={0762-64-1390/1200}},
{ 富 山 },{ROAD1:={0764-42-6437/1200}},
{ 福 井 },{ROAD1:={0776-24-8420/1200}},
{直接入力},{setTEL}
);
};
%HOKURIK2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 新 潟 },{ROAD1:={025-244-4125/2400}},
{ 長 野 },{ROAD1:={0262-26-1521/2400}},
{ 松 本 },{ROAD1:={0263-32-9921/2400}},
{ 金 沢 },{ROAD1:={0762-63-7131/2400}},
{ 富 山 },{ROAD1:={0764-42-7922/2400}},
{ 福 井 },{ROAD1:={0776-24-9986/2400}},
{直接入力},{setTEL}
);
};
%TYUBU1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 名古屋 },{ROAD1:={052-231-2579/1200}},
{ 浜 松 },{ROAD1:={053-456-8845/1200}},
{ 豊 橋 },{ROAD1:={0532-53-7159/1200}},
{ 静 岡 },{ROAD1:={054-252-2494/1200}},
{ 甲 府 },{ROAD1:={0552-33-9161/1200}},
{ 沼 津 },{ROAD1:={0559-23-5038/1200}},
{ 岡 崎 },{ROAD1:={0564-26-0964/1200}},
{ 豊 田 },{ROAD1:={0565-27-9688/1200}},
{ 刈 谷 },{ROAD1:={0566-25-2139/1200}},
{ 春日井 },{ROAD1:={0568-51-3542/1200}},
{ 高 山 },{ROAD1:={0577-32-8607/1200}},
{ 岐 阜 },{ROAD1:={0582-53-9455/1200}},
{ 大 垣 },{ROAD1:={0584-81-4491/1200}},
{ 一 宮 },{ROAD1:={0586-46-0704/1200}},
{ 津 },{ROAD1:={0592-23-1418/1200}},
{ 四日市 },{ROAD1:={0593-53-8249/1200}},
{ 伊 勢 },{ROAD1:={0596-27-5547/1200}},
{直接入力},{setTEL}
);
};
%TYUBU2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 名古屋 },{ROAD1:={052-204-2261/2400}},
{ 浜 松 },{ROAD1:={053-456-9812/2400}},
{ 豊 橋 },{ROAD1:={0532-56-0712/2400}},
{ 静 岡 },{ROAD1:={054-273-1704/2400}},
{ 甲 府 },{ROAD1:={0552-37-9119/2400}},
{ 沼 津 },{ROAD1:={0559-24-6646/2400}},
{ 岡 崎 },{ROAD1:={0564-23-8848/2400}},
{ 豊 田 },{ROAD1:={0565-26-4360/2400}},
{ 刈 谷 },{ROAD1:={0566-25-7008/2400}},
{ 春日井 },{ROAD1:={0568-51-3601/2400}},
{ 岐 阜 },{ROAD1:={0582-53-9691/2400}},
{ 大 垣 },{ROAD1:={0584-82-0445/2400}},
{ 一 宮 },{ROAD1:={0586-46-2115/2400}},
{ 津 },{ROAD1:={0592-23-1415/2400}},
{ 四日市 },{ROAD1:={0593-53-1582/2400}},
{直接入力},{setTEL}
);
};
%KINKI1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 大 阪 },{ROAD1:={06-947-5460/1200}},
{ 枚 方 },{ROAD1:={0720-46-2390/1200}},
{ 堺 },{ROAD1:={0722-27-5052/1200}},
{ 茨 木 },{ROAD1:={0726-24-6544/1200}},
{ 池 田 },{ROAD1:={0727-53-8834/1200}},
{ 和歌山 },{ROAD1:={0734-74-8155/1200}},
{ 奈 良 },{ROAD1:={0742-34-3639/1200}},
{ 彦 根 },{ROAD1:={0749-24-7298/1200}},
{ 京 都 },{ROAD1:={075-255-6069/1200}},
{ 福知山 },{ROAD1:={0773-24-1507/1200}},
{ 大 津 },{ROAD1:={0775-23-5673/1200}},
{ 神 戸 },{ROAD1:={}},
{ 姫 路 },{ROAD1:={0792-88-7931/1200}},
{ 加古川 },{ROAD1:={0794-35-7229/1200}},
{ 西 宮 },{ROAD1:={0798-66-4435/1200}},
{直接入力},{setTEL}
);
};
%KINKI2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 大 阪 },{ROAD1:={06-949-2572/2400}},
{ 堺 },{ROAD1:={0722-22-8540/2400}},
{ 和歌山 },{ROAD1:={0734-74-8163/2400}},
{ 奈 良 },{ROAD1:={0742-36-0857/2400}},
{ 京 都 },{ROAD1:={075-255-0524/2400}},
{ 大 津 },{ROAD1:={0775-23-5416/2400}},
{ 神 戸 },{ROAD1:={}},
{ 姫 路 },{ROAD1:={0792-88-9744/2400}},
{ 西 宮 },{ROAD1:={0798-64-3661/2400}},
{ 加古川 },{ROAD1:={0794-35-7944/2400}},
{直接入力},{setTEL}
);
};
%CHUGOKU1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 広 島 },{ROAD1:={082-223-7643/1200}},
{ 下 関 },{ROAD1:={0832-32-5101/1200}},
{ 徳 山 },{ROAD1:={0834-31-5321/1200}},
{ 宇 部 },{ROAD1:={0836-22-4845/1200}},
{ 山 口 },{ROAD1:={0839-21-2765/1200}},
{ 福 山 },{ROAD1:={0849-31-7240/1200}},
{ 松 江 },{ROAD1:={0852-26-9312/1200}},
{ 鳥 取 },{ROAD1:={0857-24-5146/1200}},
{ 米 子 },{ROAD1:={0859-33-0061/1200}},
{ 岡 山 },{ROAD1:={086-226-5544/1200}},
{直接入力},{setTEL}
);
};
%CHUGOKU2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 広 島 },{ROAD1:={082-223-5749/2400}},
{ 徳 山 },{ROAD1:={0834-32-5461/2400}},
{ 宇 部 },{ROAD1:={0836-22-6613/2400}},
{ 山 口 },{ROAD1:={0839-24-9485/2400}},
{ 松 江 },{ROAD1:={0852-26-5771/2400}},
{ 鳥 取 },{ROAD1:={0857-22-5121/2400}},
{ 岡 山 },{ROAD1:={086-226-6241/2400}},
{直接入力},{setTEL}
);
};
%SHIKOKU1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択して☆ネ(現在は『}|ROAD1|{』)},
,,
{ 高 松 },{ROAD1:={0878-51-0462/1200}},
{ 高 知 },{ROAD1:={0888-23-5477/1200}},
{ 松 山 },{ROAD1:={0899-33-9914/1200}},
{直接入力},{setTEL}
);
};
%SHIKOKU2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 高 松 },{ROAD1:={0878-23-4667/2400}},
{ 高 知 },{ROAD1:={0888-24-6403/2400}},
{ 松 山 },{ROAD1:={0899-32-9640/2400}},
{直接入力},{setTEL}
);
};
%KYUSYU1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 福 岡 },{ROAD1:={092-473-6576/1200}},
{ 北九州 },{ROAD1:={093-511-2421/1200}},
{ 久留米 },{ROAD1:={0942-37-4035/1200}},
{ 大牟田 },{ROAD1:={0944-52-7870/1200}},
{ 佐 賀 },{ROAD1:={0952-25-3750/1200}},
{ 佐世保 },{ROAD1:={0956-46-1981/1200}},
{ 長 崎 },{ROAD1:={0958-24-4967/1200}},
{ 熊 本 },{ROAD1:={096-324-6502/1200}},
{ 大 分 },{ROAD1:={0975-34-3724/1200}},
{ 宮 崎 },{ROAD1:={0985-29-4430/1200}},
{ 鹿児島 },{ROAD1:={0992-24-4830/1200}},
{直接入力},{setTEL}
);
};
%KYUSYU2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 福 岡 },{ROAD1:={092-474-3708/2400}},
{ 北九州 },{ROAD1:={093-531-7320/2400}},
{ 久留米 },{ROAD1:={0942-37-3977/2400}},
{ 佐 賀 },{ROAD1:={0952-25-2110/2400}},
{ 長 崎 },{ROAD1:={0958-24-5750/2400}},
{ 熊 本 },{ROAD1:={096-324-1911/2400}},
{ 大 分 },{ROAD1:={0975-37-4480/2400}},
{ 宮 崎 },{ROAD1:={0985-29-9034/2400}},
{ 鹿児島 },{ROAD1:={0992-24-4848/2400}},
{直接入力},{setTEL}
);
};
%OKINAWA1{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 那 覇 },{ROAD1:={098-863-4779/1200}},
{直接入力},{setTEL}
);
};
%OKINAWA2{
SNDMSG({erande.snd});
select({ROAD1の電話番号を選択してネ☆(現在は『}|ROAD1|{』)},
,,
{ 那 覇 },{ROAD1:={098-861-7176/2400}},
{直接入力},{setTEL}
);
};
%setNODE1{
SNDMSG({erande.snd});
footnote({ROAD1アクセス・ポイントの電話番号を設定処理中,,,♪});
select({ ROAD1アクセス・ポイント地域を選択してネ☆},
,,
{ 北海道 },{HOKKAI1}, { 東 北 },{TOHOKU1},
{ 北関東 },{NKANTO1}, { 南関東 },{SKANTO1},
{ 北信越 },{HOKURIK1}, { 中 部 },{TYUBU1},
{ 近 畿 },{KINKI1}, { 中 国 },{CHUGOKU1},
{ 四 国 },{SHIKOKU1}, { 九 州 },{KYUSYU1},
{ 沖 縄 },{OKINAWA1},
{直接入力},{setTEL}
);
};
%setNODE2{
SNDMSG({erande.snd});
footnote({ROAD1アクセスポイントの電話番号を設定処理中,,,♪});
select({ ROAD1アクセス・ポイント地域を選択してネ☆},
,,
{ 北海道 },{HOKKAI2}, { 東 北 },{TOHOKU2},
{ 北関東 },{NKANTO2}, { 南関東 },{SKANTO2},
{ 北信越 },{HOKURIK2}, { 中 部 },{TYUBU2},
{ 近 畿 },{KINKI2}, { 中 国 },{CHUGOKU2},
{ 四 国 },{SHIKOKU2}, { 九 州 },{KYUSYU2},
{ 沖 縄 },{OKINAWA2},
{直接入力},{setTEL}
);
};
var BPS[4];
case(ROAD1,{},{ROAD1:={未設定}});
SNDMSG({erande.snd});
footnote({アクセス・ポイントROAD1の通信速度の設定処理中,,,♪});
select({ モデムの通信速度を指定してネ☆(^_^)/♪},
,,
{ 1200BPS },{BPS:={1200};setNODE1;},
{ 2400BPS },{BPS:={2400};setNODE2;});